diskkd.mESA 24-0CT-77 18:19:56 Page 1 



— DiskKD.Mesa Edited by Sandman on August 23. 1977 9:42 PM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
AUoFileDefs: FROM "al tof iledef s" , 
BootDefs: FROM "bootdefs", 
DirectoryDefs: FROM "directorydefs" , 
DiskDefs: FROM "diskdefs", 
DiskKDDefs: FROM "di skkddef s" , 
InlineDefs: FROM "in! inedef s" . 
ImageDefs: FROM "imagedefs", 
SegmentOefs: FROM "segmentdef s"; 

DEFINITIONS FROM AUoDefs, AUoFileDefs, SegmentDefs; 

DiskKD: PROGRAM 

IMPORTS BootDefs, DirectoryDefs, DiskDefs, ImageDefs, SegmentDefs EXPORTS DiskKDDefs 

BEGIN 

InitializeDiskKD: PUBLIC PROCEDURE « 
BEGIN 

pages: PageCount; 
IF -DirectoryDefs. DirectoryLookup[@diskKD. file. fp. nameKD, FALSE] 

THEN SIGNAL F i leNameError[nameKD] ; 
MoveFileSegment[diskKD, DefaultBase, 1]; 
OpenDiskKD[]; 

DiskDefs.SetDisk[Qkd.disk3: 
pages *- (kd. size+PageSize-l)/PageSize; 
[] *- CloseDiskKD[3j 

MoveFileSegment[diskKD. DefaultBase, pages]; 
RETURN 
END; 

OpenDiskKD: PROCEDURE = 
BEGIN 
IF -diskKD.swappedin THEN 

BEGIN SwapIn[diskKD]; 

kd ^ FileSegmentAddress[diskKD]; 

kd. changed ♦■ 0; 

END 
ELSE swapKO.proc ♦- CantSwap; 
RETURN 
END; 

UpdateDiskKD: PUBLIC PROCEDURE = 
BEGIN 

IF diskKD. swappedin 
AND kd.changed;^0 THEN 

BEGIN 

diskKD. write ♦■ TRUE; 

SwapUp[diskKD]; 

diskKD. write <- FALSE; 

kd. changed ♦- 0; 

END; 
RETURN 
END; 

CloseDiskKD: PUBLIC PROCEDURE RETURNS [BOOLEAN] = 
BEGIN 

IF -diskKD. swappedin THEN RETURN[FALSF] ; 
swapKD.proc ^ CantSwap; UpdateDi skKD[] ; 
Unlock[d iskKD]; SwapOut[d i skKD] ; 
RETURN[TRUE] 
END; 

CleanupD iskKD: PUBLIC ImageDefs . CleanupProcedure = 
BEGIN 
SCI rCT why FROM 

Finish. Abort, OutLd => [] ♦- CI oseD i skKD[] ; 
-- Save => 

We depend on Makelmage to call CloseDiskKD when 
it has finished allocating the image file pages. 
Logically, it should also call ResetDisk at this 
time, but it can't do that until the Restore. 
-- Restore => 
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We depend on Makelmage to call Initial izeDiskKD 
as soon as the image file starts up so that the 
Real to Virtual disk address map can be set up. 
ENDCASE; 

RETURN 

END; 



AllOnes: WORD « 1777778; 

NewSN: PUBLIC PROCEDURE RETURNS [sn:SN] = 
BEGIN OpenDiskKD[]; 
IF (kd.lastSN.parta ♦■ kd. lastSN. part2+l) = 

THEN kd.lastSN. parti *- kd . lastSN. partl+1 ; 
sn ♦- kd.lastSN; kd. changed «- AllOnes; 
swapKD.proc ♦• CloseDiskKD; 
RETURN 
END; 

BitAddress: TYPE = RECORD [word: [0 . .77778] , bit : [0 . . 178]]; 

DiskFull: PUBLIC SIGNAL = CODE; 

AssignOiskPage: PUBLIC PROCEDURE Cda:vDA] 
RETURNS [vDA] = 
BEGIN OPEN InlineDefs; 
onebit: WORD; 
ba, wa: CARDINAL; 
w: POINTER TO WORD; 
base: BitAddress = LOOPHOLE[da+l] ; 
baseWa: CARDINAL <- base. word; 
baseBa: CARDINAL ♦- base. bit; 
OpenDiskKD[]; 

DO ENABLE UNWIND => swapKD.proc ^ CloseDiskKD; 
FOR wa IN [baseWa. .kd.size) DO 

IF (w *- @kd. table[wa])t ff AllOnes THEN 
FOR ba IN [baseBa. .wordlength) DO 
onebit ♦- BITSHIFT[100000B ,-ba]; 
IF BITAND[wt,onebit]=0 THEN 
BEGIN 

wt «- BITOR[wt, onebit]; 
kd. changed ^ AllOnes; 
swapKD.proc ♦• CloseDiskKD; 
RETURN[vDA[wa*wordlength+ba]]; 
END; 
ENDLOOP; 
baseBa ♦- 0; 
ENDLOOP; 
IF baseWa=0 THEN SIGNAL DiskFull; 
baseWa ^ ; 
ENDLOOP; 
END; 

ReleaseDiskPage: PUBLIC PROCEDURE [v:vDA] = 
BEGIN OPEN In! ineDefs; 
word: POINTER TO WORD; 
OpenDiskKD[]; 

word <- @kd. table[LOOPHOLE[v,B i tAddress].word]; 
wordt *- BTTAND[wordt , 

BITNOT[BITSHIFT[100000B,-LOOPHOLE[v. BitAddress]. bit]]]: 
kd . changed *• Al lOnes; 
swapKD.proc *- CloseDiskKD; 
RETURN 
END; 

CountrreeDiskPages: PUBLIC PROCfDURF RETURNS [count: CARDINAL] 
BTGIN OPEN Inl ineDefs; 
ba. wa: CARDINAL; 
onebit: WORD; 
word: POINTER TO WORD; 
count ^ 0; 
OpenniskKD[]; 
FOR wa IN [0. .kd.si/e) DO 

If (word «- @kd. table[wa])t // AllOnes THEN 
FOR ba IN [0 . . wordl eng th ) DO 

onebit - BTTSIIIFT[100000B,-ba]; 
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IF BITAND[wordt,onebit]*0 THEN count ♦• count+1; 

EMDLOOP; 
ENDLOOP; 
swapKD.proc <- CloseDiskKD; 
RETURN 
END; 

-- Main Body 

kd: POINTER TO KD; 
swapKD: SwapStrategy ; 
diskKD: F ileSegmentHandl e ; 
cleanupKD: ImageDef s .CI eanupltem; 
nameKD: STRING = "DiskDescriptor . " ; 

swapKD.proc <- CantSwap; 

CleanupKD. proc *- CleanupDiskKD; 

diskKD ♦- NewFileSegment[BootDefs.BootFile[Read+Write],DefauUBase,l,Read]; 

AddSwapStrategy[@swapKD] ; 

ImageDers.AddC1eanupProcedure[0cleanupKD]; 

Initial izeDiskKD[]; 

-- Should we support running without a DiskDescriptor? 

END. 



